VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Setting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Option Explicit
Dim isCopy As Boolean
Private Sub Worksheet_Activate()
    If isCopy = False Then
    UprotectSettingSheet
    Range("A1:B16").Copy Range("U1:V16")
    clearClipboard
    ProtectSettingSheet
    isCopy = True
    End If
End Sub

